home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 May & June / rerun-1986-05-06.d64 / quick merge (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  68 lines
  1. 63900 rem *** quick merge ***
  2. 63901 open15,8,15:poke53281,1:poke53280,0:ifm$(0)<>""then63907
  3. 63902 restore:forx=0to10:readm$(x):next
  4. 63903 data"1> view file","2> save file","3> merge from disk","4> rename
  5. 63904 [131]"5> erase","6> rewrite file","7> directory","8> duplicate"
  6. 63905 [131]"9> print","cmd10> write new program","cmd11> exit to basic"
  7. 63907 [153][199](142)"load  quick merge menu wait":[129]x[178]0[164]10:[153]"  "m$(x):[130]
  8. 63908 [153]:[133]"  select";k$:k[178][197](k$):f$[178]"none":[139]k[179]1[176]k[177]11[167]63907
  9. 63909 [139][194](679)[167]f$[178]"":[129]x[178]680[164]680[170][194](679)[171]1:f$[178]f$[170][199]([194](x)):[130]
  10. 63910 [139]k[178]4[176]k[178]7[176]k[177]9[167]63912
  11. 63911 [153]"on filecloseincloseram: "f$"":[133]" file name: ";f$:[141]63917
  12. 63912 [145]k[137]63920,63930,63940,63913,63915,63915,63970,63920,63920,63998,63999
  13. 63913 [133]"old name ";f$:[133]"change to";fx$:[141]63917
  14. 63914 f$[178]"r0:"[170]fx$[170]"="[170]f$:[152]15,f$:[141]63996:[137]63907
  15. 63915 [153]:[141]63917:[152]15,"s0:"[170]f$:[139]k[178]5[167]63907
  16. 63916 [137]63930
  17. 63917 [139][200](f$,1)[179][177]"/"[167]f$[178]"/"[170]f$:[151]679,[195](f$)
  18. 63918 [139]k[178]4[167][139][200](fx$,1)[179][177]"/"[167]fx$[178]"/"[170]fx$
  19. 63919 [129]x[178]680[164]680[170][194](679):[151]x,[198]([202](f$,x[171]679,1)[170][199](0)):[130]:[142]
  20. 63920 [153]"loadfile: "f$:[141]63995:[139]k[178]8[167]ch[178]0:[153]"transferring file..."
  21. 63921 [139]k[178]9[167][160]4:[159]4,4,7
  22. 63922 [161]#2,k$:[139]k[178]9[167]l$[178]l$[170]k$:[139]k$[178][199](13)[167][152]4,l$;:l$[178]""
  23. 63923 [139]k[178]8[167]ch[178]ch[170]1:[151]49151[170]ch,[198](k$[170][199](0)):[137]63925
  24. 63924 [153]k$;:[139][194](214)[177]22[175]k$[178][199](13)[167][141]63990:[153]"load"
  25. 63925 [139]st[178].[167]63922
  26. 63926 [139]k[178]9[167][152]4,l$:[152]4:[160]4:[137]63929
  27. 63927 [139]k[178]8[167][153]"insert target disk":[160]2:[141]63991:[159]3,8,3,f$[170]",s,w"
  28. 63928 [139]k[178]8[167][141]63996:[129]x[178]1[164]ch:[152]3,[199]([194](49151[170]x));:[130]:[160]3
  29. 63929 [153]"-end-":q[178][171]1:[137]63990
  30. 63930 [133]" save from line#";ls:[133]" to line#       ";lf:[139]lf[178][179]ls[167]63907
  31. 63932 f$[178]f$[170]",s,w":[141]63995:[153]"loadcmd2:list"ls"-"lf
  32. 63933 [153]"print#2:close2:run63900":[153]"saving..."
  33. 63934 [151]631,19:[129]z[178]632[164]635:[151]z,13:[130]:[151]636,8:[151]198,6:[128]
  34. 63940 [141]63995:[153]"loadreading: "f$:bank[178]49152
  35. 63946 [161]#2,k$:[139]st[167]63954
  36. 63947 [153]k$;:[151]bank[170]loc,[198](k$):loc[178]loc[170]1:[139]loc[179]4096[167]63946
  37. 63948 [153]:[153]"file overflow":q[178][171]1:[137]63990
  38. 63954 [160]2:[153]"-end-":[153]"merging "loc[171]2"bytes -- wait!"
  39. 63956 [151]1020,[181](bank[173]256):[151]1021,bank[171]([194](1020)[172]256)
  40. 63957 loc[178]loc[170]bank:[151]1022,[181](loc[173]256):[151]1023,loc[171]([194](1022)[172]256)
  41. 63958 [129]t[178]1[164]1000:[130]:[153]"load";
  42. 63960 bank[178]([194](1020)[172]256)[170][194](1021):loc[178]([194](1022)[172]256)[170][194](1023)
  43. 63961 [129]x[178]bank [164] loc:[153][199]([194](x));:[139][194](x)[179][177]13[167][130]:[138]63900
  44. 63963 x[178]x[170]1:[151]1020,[181](x[173]256):[151]1021,x[171]([194](1020)[172]256)
  45. 63964 [139][194](1024)[179]48[176][194](1024)[177]57[167]63960
  46. 63965 [153]"g(NULL)63960";:[151]631,19:[151]632,13:[151]633,19
  47. 63966 [129]y[178]634[164]638:[151]y,17:[130]:[151]639,13:[151]198,9:[128]
  48. 63970 [143]---directory
  49. 63971 [160]2:[159]2,8,0,"$0":[153]"load":[161]#2,x$,x$
  50. 63972 [161]#2,x$,x$,x$,y$:c[178][198](x$[170][199](0))[170][198](y$[170][199](0))[172]256
  51. 63974 [161]#2,y$:[139]st[167][153]:[153]"ononblocks free":q[178][171]1:[137]63990
  52. 63975 [161]#2,y$:[139]y$[178][199](32)[176]y$[178][199](34)[167]63975
  53. 63979 z$[178]z$[170]y$
  54. 63980 [161]#2,y$:[139]y$[178][199](34)[167]63980
  55. 63981 [139]y$[179][177]""[167]63979
  56. 63983 [153]c;:[139]c[178]0[167][153]"cmdcmdcmd dir:";
  57. 63984 [151]211,7:[153]z$:z$[178]"":[139][194](214)[177]21[167][153]:[141]63990:[153]"load";
  58. 63986 [137]63972
  59. 63990 [153]"";:[139]q[179][177][171]1[167][153]"_ for menu  or ";
  60. 63991 [153]"-press any key-";:[151]198,0:[146]198,1:y[178][194](631):k$[178][199](y)
  61. 63992 [151]198,0:[139]k$[178]"_"[176]q[178][171]1[167][160]2:[138]63900
  62. 63993 [153]:[142]
  63. 63995 [160]2:[159]2,8,2,f$
  64. 63996 [132]15,e,e$:[139]e[179]20[167][142]
  65. 63997 [153]"disk error#"e;e$:[152]15,"i":q[178][171]1:[137]63990
  66. 63998 [153]"loadtype program lines. to restart quick merge, type 'run 63900'"
  67. 63999 [153]"loadprogram terminated":[128]
  68.